-- card: 2839 from stack: in.1
-- bmap block id: 0
-- flags: 0000
-- background id: 2788
-- name: 


-- part 9 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=4 top=94 right=304 bottom=228
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 10 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=4 top=65 right=87 bottom=104
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GetCreator
----- HyperTalk script -----
on mouseUp
  put getpathname() into appname
  if appname = "" then exit to hypercard
  get getcreator(appname)
  if the number of chars of it = 4 then
    answer "The CREATOR of “" & appname & "” is" && it & "."
  else
    answer it with "Sorry"
  end if
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=128 top=65 right=87 bottom=228
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SetCreator
----- HyperTalk script -----
on mouseUp
  put getpathname() into appname
  if appname = "" then exit to hypercard
  ask "Change Creator to what?" with getcreator(appname)
  if it = "" then exit mouseup
  setcreator appname,it
  if the result ≠ "" then answer the result with "Sorry"
end mouseUp



-- part contents for card part 9
-- note: style data is present
----- text -----
GetCreator takes one parameter, the pathname of the file you want to examine. SetCreator takes two parameters, the pathname of the file and the 4 letter Creator to use. Click on and/or examine the scripts of the buttons above to see how it works!

A small shareware fee of $5.00 is requested if you use these externals in any “in house”, shareware or freeware products. The registration fee for development and prototyping of a future commercial product is $10.  The registration fee for unlimited commercial use in a SINGLE “for sale” product is $15.  The fee for unlimited commercial use with MULTIPLE products is $25.   These are life-time registrations.  You are entitled to all future shareware updates without further cost.

For additional information you can contact us in any of the following ways:
America Online:  ProX Jeff
GEnie:           APOSTASY
Compuserve:      76675,1772
AppleLink:       ALL.AMERICAN
All-American Software Development Corp.
P. O. Box 50635
Minneapolis MN  55405-0635